;;;QQ:67762207
[@LottoSystem_NPC]
{
#SAY
Ʊÿ930ֿ \
0-14ѡ3룬ѡĺнһ£˳ʱн
ܽнΪÿλõĽ \
ÿŲƱļ۸Ϊ1,500ҡƱʱ˻500ҡ \
{FCOLOR/10}дƱ󣬽ʱٸ10ֵѡ{FCOLOR/12} \
˫Ʊд롣дźԺȡ10.\
н˫Ʊȡ \
{FCOLOR/10}趨׽Ϊ500־籾ûۼƵڣ{FCOLOR/12}\
<鿴/@ComFirmLottoNumber>һڵнۻ \
</@BuyLotto>Ʊ\
</@SellLotto>Ʊ \
</@exit>Ʊ

[@SellLotto]
#IF
checkitem ˲Ʊ 1
#ACT
Give  500
Take ˲Ʊ 1
#SAY
ҪƱ \\
</@SellLotto> \
</@exit> \
#ELSESAY
ûвƱ \\
< /@exit>

[@ComFirmLottoNumber]
#ACT
ReadValueSql "TBL_LottoServer" "FLD_Name='Current'" "FLD_Sequence" @ComFirmLottoNumber_Sequence

[@ComFirmLottoNumber_Sequence()]
#ACT
Mov D0 %ARG(1)	;
Dec D0 1

#IF
Large D0 0
#ACT
FormatStr "FLD_Name='Lotto' and FLD_Sequence=%s" %D0
ReadValueSql "TBL_LottoServer" %A9 "FLD_Num1,FLD_Num2,FLD_Num3,FLD_HumanCount,FLD_TotalPrice,FLD_UserPrice" @ComFirmLottoNumber_Information
#ELSESAY
ΪڲƱԲѯǰһڵнϢ \\
< /@exit>

[@ComFirmLottoNumber_Information()]
#ACT
Mov D1 %ARG(1)
Mov D2 %ARG(2)
Mov D3 %ARG(3)
Mov D4 %ARG(4)
Mov D5 %ARG(5)
Mov D6 %ARG(6)
Mov A0 %ARG(7)

#IF
Equal D4 0
Equal A0 "NotPrize"
#SAY
ϴε<$OUTPUT(D0)>ڲƱнΪ<$OUTPUT(D1)><$OUTPUT(D2)><$OUTPUT(D3)> \
ûн<$OUTPUT(D5)>ۻһڵĽ \\
< /@exit>
#ELSESAY
ϴε<$OUTPUT(D0)>ڲƱнΪ<$OUTPUT(D1)><$OUTPUT(D2)><$OUTPUT(D3)>\
<$OUTPUT(D4)>нܽΪ<$OUTPUT(D5)>־ÿõĽΪ<$OUTPUT(D6)>־\\
< /@exit>

[@BuyLotto]
#IF
CHECKBAGGAGE
#ELSESAY
<$USERNAME>ǮܹƱ \\
< /@exit>
#ELSEACT
break

#IF
checkgold 1500
#ACT
ReadValueSql "TBL_LottoServer" "FLD_Name='Current'" "FLD_Sequence" @BuyLotto_Sequence
#ELSESAY
<$USERNAME>Ҳ. \\
<   /@exit>

[@BuyLotto_Sequence()]
#ACT
Mov D0 %ARG(1)

#IF
checkgold 1500
#ACT
sysmsg "˵ <$OUTPUT(D0)>˲Ʊ."
Take  1500
Give ˲Ʊ 1
FormatStr "%s,%s,%s," %P9 %D0 100
Mov A8 %A9
FormatStr "%s,%s" 100 100
Addstr A8 %A9
FormatStr "FLD_MakeIdx=%s and FLD_Sequence=%s" %P9 %D0
WriteValueSql "TBL_LottoUser" %A9 "FLD_MakeIdx,FLD_Sequence,FLD_Num1,FLD_Num2,FLD_Num3" %A8
Close
}
;;;QQ:67762207